home *** CD-ROM | disk | FTP | other *** search
/ Mac Mania 1 / MacMania 1.toast / Hypercard / HyperCard' More / C-D / ClassroomAdministr / Classroom Administrator / SetUpStack / background_7357.txt < prev    next >
Encoding:
Text File  |  1988-01-07  |  6.6 KB  |  326 lines
  1. -- background: 7357 from stack: in
  2. -- bmap block id: 4131
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: Grades
  6. ----- HyperTalk script -----
  7. on openStack
  8.   hide message box
  9.   show menuBar
  10.   pass openStack
  11. end openStack
  12.  
  13.  
  14.  
  15. -- part 8 (button)
  16. -- low flags: 00
  17. -- high flags: 0000
  18. -- rect: left=291 top=0 right=23 bottom=316
  19. -- title width / last selected line: 0
  20. -- icon id / first selected line: 1013 / 1013
  21. -- text alignment: 1
  22. -- font id: 0
  23. -- text size: 12
  24. -- style flags: 0
  25. -- line height: 16
  26. -- part name: Next
  27. ----- HyperTalk script -----
  28. on mouseUp
  29.   go to next card
  30. end mouseUp
  31.  
  32.  
  33.  
  34. -- part 9 (button)
  35. -- low flags: 00
  36. -- high flags: 0000
  37. -- rect: left=183 top=0 right=23 bottom=209
  38. -- title width / last selected line: 0
  39. -- icon id / first selected line: 1014 / 1014
  40. -- text alignment: 1
  41. -- font id: 0
  42. -- text size: 12
  43. -- style flags: 0
  44. -- line height: 16
  45. -- part name: Prev
  46. ----- HyperTalk script -----
  47. on mouseUp
  48.   go to prev card
  49. end mouseUp
  50.  
  51.  
  52.  
  53. -- part 103 (field)
  54. -- low flags: 00
  55. -- high flags: 0001
  56. -- rect: left=170 top=90 right=314 bottom=205
  57. -- title width / last selected line: 0
  58. -- icon id / first selected line: 0 / 0
  59. -- text alignment: 0
  60. -- font id: 3
  61. -- text size: 12
  62. -- style flags: 0
  63. -- line height: 16
  64. -- part name: PtsPoss1
  65.  
  66.  
  67. -- part 104 (field)
  68. -- low flags: 00
  69. -- high flags: 0001
  70. -- rect: left=393 top=90 right=314 bottom=428
  71. -- title width / last selected line: 0
  72. -- icon id / first selected line: 0 / 0
  73. -- text alignment: 0
  74. -- font id: 3
  75. -- text size: 12
  76. -- style flags: 0
  77. -- line height: 16
  78. -- part name: PtsPoss2
  79.  
  80.  
  81. -- part 54 (field)
  82. -- low flags: 00
  83. -- high flags: 4002
  84. -- rect: left=18 top=90 right=314 bottom=205
  85. -- title width / last selected line: 0
  86. -- icon id / first selected line: 0 / 0
  87. -- text alignment: 0
  88. -- font id: 3
  89. -- text size: 10
  90. -- style flags: 0
  91. -- line height: 13
  92. -- part name: Column One
  93. ----- HyperTalk script -----
  94. on MouseUp
  95.  
  96. end MouseUp
  97.  
  98.  
  99.  
  100. -- part 55 (field)
  101. -- low flags: 00
  102. -- high flags: 4007
  103. -- rect: left=251 top=90 right=314 bottom=444
  104. -- title width / last selected line: 0
  105. -- icon id / first selected line: 0 / 0
  106. -- text alignment: 0
  107. -- font id: 3
  108. -- text size: 10
  109. -- style flags: 0
  110. -- line height: 13
  111. -- part name: Column 2
  112.  
  113.  
  114. -- part 56 (field)
  115. -- low flags: 00
  116. -- high flags: 4002
  117. -- rect: left=209 top=90 right=314 bottom=238
  118. -- title width / last selected line: 0
  119. -- icon id / first selected line: 0 / 0
  120. -- text alignment: 0
  121. -- font id: 3
  122. -- text size: 10
  123. -- style flags: 0
  124. -- line height: 13
  125. -- part name: Column 3
  126.  
  127.  
  128. -- part 57 (field)
  129. -- low flags: 00
  130. -- high flags: 4007
  131. -- rect: left=445 top=90 right=313 bottom=485
  132. -- title width / last selected line: 0
  133. -- icon id / first selected line: 0 / 0
  134. -- text alignment: 0
  135. -- font id: 3
  136. -- text size: 10
  137. -- style flags: 0
  138. -- line height: 13
  139. -- part name: Column 4
  140.  
  141.  
  142. -- part 58 (field)
  143. -- low flags: 00
  144. -- high flags: 0004
  145. -- rect: left=53 top=34 right=54 bottom=192
  146. -- title width / last selected line: 0
  147. -- icon id / first selected line: 0 / 0
  148. -- text alignment: 0
  149. -- font id: 3
  150. -- text size: 10
  151. -- style flags: 0
  152. -- line height: 13
  153. -- part name: Name
  154.  
  155.  
  156. -- part 60 (button)
  157. -- low flags: 00
  158. -- high flags: 8003
  159. -- rect: left=383 top=1 right=21 bottom=502
  160. -- title width / last selected line: 0
  161. -- icon id / first selected line: 0 / 0
  162. -- text alignment: 1
  163. -- font id: 0
  164. -- text size: 12
  165. -- style flags: 0
  166. -- line height: 16
  167. -- part name: Student Profile
  168. ----- HyperTalk script -----
  169. on mouseUp
  170.   put char 1 of word 1 of field "Name" into temp
  171.   put temp & word 2 of field "Name" & "Profile" into cardname
  172.   visual effect iris close
  173.   go to card cardname
  174.  
  175. end mouseUp
  176.  
  177.  
  178.  
  179. -- part 61 (field)
  180. -- low flags: 01
  181. -- high flags: 4001
  182. -- rect: left=435 top=63 right=76 bottom=485
  183. -- title width / last selected line: 0
  184. -- icon id / first selected line: 0 / 0
  185. -- text alignment: 0
  186. -- font id: 3
  187. -- text size: 10
  188. -- style flags: 0
  189. -- line height: 13
  190. -- part name: Points
  191. ----- HyperTalk script -----
  192. On MouseUp
  193.   set lockscreen to true
  194.   put 0 into field "Points"
  195.   repeat with x = 1 to number of lines in field "Column One"
  196.     add line x of field "Column 3" to field "Points"
  197.   end repeat
  198.   repeat with x = 1 to number of lines in field "Column 2"
  199.     add line x of field "Column 4" to field "Points"
  200.   end repeat
  201.   put field "Points" into TotalPoints
  202.   put TotalPoints into card field "Total Points"
  203.  
  204.   put 0 into PointsPossible
  205.   repeat with x = 1 to number of lines in field "PtsPoss1"
  206.     add line x of field "PtsPoss1" to PointsPossible
  207.   end repeat
  208.  
  209.   repeat with x = 1 to number of lines in field "PtsPoss2"
  210.     add line x of field "PtsPoss2" to PointsPossible
  211.   end repeat
  212.   put PointsPossible into field "Possible"
  213.   divide field "Points" by PointsPossible
  214.   Multiply field "Points" by 100
  215.   set lockscreen to false
  216. end MouseUp
  217.  
  218.  
  219.  
  220.  
  221.  
  222.  
  223.  
  224.  
  225.  
  226.  
  227.  
  228.  
  229.  
  230.  
  231.  
  232.  
  233.  
  234. -- part 62 (field)
  235. -- low flags: 00
  236. -- high flags: 0000
  237. -- rect: left=460 top=51 right=64 bottom=485
  238. -- title width / last selected line: 0
  239. -- icon id / first selected line: 0 / 0
  240. -- text alignment: 0
  241. -- font id: 3
  242. -- text size: 10
  243. -- style flags: 0
  244. -- line height: 13
  245. -- part name: Possible
  246.  
  247.  
  248. -- part 101 (button)
  249. -- low flags: 00
  250. -- high flags: 0000
  251. -- rect: left=74 top=0 right=25 bottom=113
  252. -- title width / last selected line: 0
  253. -- icon id / first selected line: 1007 / 1007
  254. -- text alignment: 1
  255. -- font id: 0
  256. -- text size: 12
  257. -- style flags: 0
  258. -- line height: 16
  259. -- part name: 
  260. ----- HyperTalk script -----
  261. on mouseUp
  262.  
  263.   answer "What do you wish to print?" with "This card" or "Missing"
  264.   if it is "This card" then
  265.     open printing
  266.     print this card
  267.     close printing
  268.   else
  269.     put 1 into x
  270.     put the number of lines in field 1 into fieldlines
  271.     repeat until x > fieldlines
  272.       if line x of field 3 is empty then
  273.         put line x of field 1 into cardname
  274.         push this card
  275.         go to LessonPlan
  276.         go to card cardname
  277.         open printing
  278.         print this card
  279.         close printing
  280.         pop card
  281.       end if
  282.       add 1 to x
  283.     end repeat
  284.  
  285.     put 1 into x
  286.     put the number of lines in field 2 into fieldlines
  287.     repeat until x > fieldlines
  288.       if line x of field 4 is empty then
  289.         put line x of field 2 into cardname
  290.         push this card
  291.         go to LessonPlan
  292.         go to card cardname
  293.         open printing
  294.         print this card
  295.         close printing
  296.         pop card
  297.       end if
  298.       add 1 to x
  299.     end repeat
  300.   end if
  301. end mouseUp
  302.  
  303.  
  304.  
  305.  
  306.  
  307.  
  308. -- part 102 (button)
  309. -- low flags: 00
  310. -- high flags: 0000
  311. -- rect: left=0 top=0 right=17 bottom=19
  312. -- title width / last selected line: 0
  313. -- icon id / first selected line: 26635 / 26635
  314. -- text alignment: 1
  315. -- font id: 0
  316. -- text size: 12
  317. -- style flags: 0
  318. -- line height: 16
  319. -- part name: 
  320. ----- HyperTalk script -----
  321. on mouseUp
  322.   Push this card
  323.   go to helper
  324. end mouseUp
  325.  
  326.